Hallo Ulrich,
ich habe
Set wsZiel = ThisWorkbook.Worksheets.Add()
wie du auch, aus dem Loop genommen.
Dann habe ich mir einen Counter auf Null gesetzt und jedes Mal, wenn eine neue Datei geöffnet wird, werden die Zellen zugewiesen und der Counter wird am Ende um eins erhöht. Es funktioniert auch wie gewünscht.
Ich habe noch eine andere Frage:
Es sind ca. 350 Zellzuweisungen in jedem Loop. Ich habe das mal für 2 Datein im Ordner getestet und es hat 20s gedauert aber funktioniert. Funktionieren soll es für 50 Datein. Denkst du, das Programm schafft das?
(Ich habe z.B. auch eine Datei, da habe ich mir aufgelistet, welche Werte aus den Datein im Ordner wo gespeichert werden sollen und um was für einen Wert es sich handelt. [ Was | von | nach]
Kann man das Programm so gestalten, dass ebendiese Datei ausgelesen wird und quasi Quell- und Ziel-Datei miteinander verbindet? Oder wäre da die Laufzeit noch schlimmer?)
Grüße
Mirko
|